home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / ipnet10a.zip / IPNET.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-16  |  5KB  |  249 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.     String   STRING011
  35.     String   STRING012
  36.     String   STRING013
  37.     String   STRING014
  38.     String   STRING015
  39.     String   STRING016
  40.     String   STRING017
  41.  
  42. ;------------------------------------------------------------------------------
  43.  
  44.     STRING012 = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  45.     STRING009 = PPEPath() + "IPNET.CFG"
  46.     FOpen 1, STRING009, 0, 2
  47.     FGet 1, STRING017
  48.     FGet 1, STRING014
  49.     FGet 1, STRING016
  50.     FGet 1, STRING013
  51.     FClose 1
  52.     INTEGER003 = 500
  53.     INTEGER002 = Len(STRING017)
  54.     INTEGER004 = 16777215
  55.     For INTEGER001 = 1 To INTEGER002
  56.         STRING015 = Mid(STRING017, INTEGER001, 1)
  57.         INTEGER004 = INTEGER004 - INTEGER003 * Asc(STRING015)
  58.         INTEGER003 = INTEGER003 + 3
  59.     Next
  60.     INTEGER005 = S2I(STRING016, 10)
  61.     If (INTEGER004 == INTEGER005) Then
  62.         Goto LABEL002
  63.     Else
  64.         Goto LABEL001
  65.     Endif
  66.     Cls
  67.     :LABEL001
  68.     Cls
  69.     PrintLn "                          @X0BIPNET.PPE by Michele Stewart @X07"
  70.     PrintLn "                                  Copyright 1993 "
  71.     PrintLn "                 @X8CUnregistered Version - Ask your Sysop to Register@X07 "
  72.     PrintLn 
  73.     Goto LABEL003
  74.     :LABEL002
  75.     Cls
  76.     PrintLn "                           @X0BIPNET.PPE by Michele Stewart @X07"
  77.     PrintLn "                                   Copyright 1993 "
  78.     PrintLn 
  79.     :LABEL003
  80.     If (Exist(PPEPath() + "IPINTRO.*")) Then
  81.         DispFile PPEPath() + "IPINTRO", 1 + 2 + 4
  82.     Else
  83.         Goto LABEL004
  84.     Endif
  85.     Goto LABEL005
  86.     :LABEL004
  87.     PrintLn 
  88.     PrintLn "@X78 ┌@X7F───────────────────────────────────────────────────────────────────────────┐ @X07"
  89.     PrintLn "@X78 │ @X71         You are about to enter a NETMAIL message. Make sure you          @X7F│ @X07"
  90.     PrintLn "@X78 │             @X71have the FULL node number of the addressee handy.             @X7F│ @X07"
  91.     PrintLn "@X78 └───────────────────────────────────────────────────────────────────────────@X7F┘ @X07"
  92.     PrintLn 
  93.     If (Len(STRING013) > 1) Then
  94.         Goto LABEL005
  95.     Else
  96.         Goto LABEL008
  97.     Endif
  98.     :LABEL005
  99.     If (Exist(PPEPath() + "IPMENU.*")) Then
  100.         DispFile PPEPath() + "IPMENU", 1 + 2 + 4
  101.     Else
  102.         Goto LABEL006
  103.     Endif
  104.     Goto LABEL007
  105.     :LABEL006
  106.     PrintLn 
  107.     PrintLn "@X07                        @X3E  Choose Destination of Message  @X08▄ @X07"
  108.     PrintLn "                        @X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀         @X07"
  109.     PrintLn 
  110.     PrintLn "                        @X70  (1) @X71Fido/EchoNet Node          @X08▄ @X07"
  111.     PrintLn "                        @X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀         @X07"
  112.     PrintLn 
  113.     PrintLn "                        @X70  (2) @X71Internet Address           @X08▄ @X07"
  114.     PrintLn "                        @X08 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀         @X07"
  115.     PrintLn 
  116.     :LABEL007
  117.     STRING010 = ""
  118.     InputStr "(@X0C@TIMELEFT@ @X0Emin. left) Choose Destination, Enter=Abort", STRING010, 14, 1, "12A", 60
  119.     If (STRING010 == "1") Goto LABEL008
  120.     If (STRING010 == "2") Goto LABEL010
  121.     If (STRING010 == "a") Goto LABEL011
  122.     If (STRING010 == "") Goto LABEL011
  123.     STRING010 = ""
  124.     Goto LABEL005
  125.     :LABEL008
  126.     DispText 199, 32768
  127.     InputText "", STRING001, 11, 60
  128.     PrintLn 
  129.     DispText 200, 32768
  130.     InputText "", STRING006, 11, 60
  131.     If (Len(STRING006) < 2) Goto LABEL011
  132.     PrintLn 
  133.     DispText 498, 32768
  134.     GetUser
  135.     STRING007 = NoChar()
  136.     If (U_FSE == 1) STRING007 = YesChar()
  137.     InputYN "", STRING007, 11
  138.     PrintLn 
  139.     If (Exist(PPEPath() + "IPINFO.*")) Then
  140.         DispFile PPEPath() + "IPINFO", 1 + 2 + 4
  141.     Else
  142.         Goto LABEL009
  143.     Endif
  144.     :LABEL009
  145.     InputStr "FidoNet Zone #", STRING004, 14, 5, "1234567890", 8 + 60
  146.     If (Len(STRING004) < 1) Then
  147.         STRING004 = "1"
  148.     Endif
  149.     InputStr "FidoNet Net #", STRING003, 14, 5, "1234567890", 8 + 60
  150.     If (Len(STRING003) < 1) Then
  151.         Goto LABEL011
  152.     Endif
  153.     InputStr "FidoNet Node #", STRING002, 14, 5, "1234567890", 8 + 60
  154.     If (Len(STRING002) < 1) Then
  155.         Goto LABEL011
  156.     Endif
  157.     InputStr "FidoNet Point #, if any", STRING005, 14, 5, "1234567890", 8 + 60
  158.     If (Len(STRING005) < 1) Then
  159.         STRING011 = ""
  160.     Else
  161.         STRING011 = "."
  162.     Endif
  163.     KbdStuff "E " + Chr(13) + STRING001 + Chr(13) + STRING006 + Chr(13) + STRING007 + Chr(13)
  164.     KbdStuff "@>" + STRING004 + ":" + STRING003 + "/" + STRING002 + STRING011 + STRING005 + Chr(13) + Chr(13)
  165.     Goto LABEL011
  166.     :LABEL010
  167.     InputStr "Enter full Internet address", STRING008, 14, 45, STRING012 + "@!.", 70
  168.     If (Len(STRING008) < 1) Goto LABEL011
  169.     PrintLn 
  170.     DispText 200, 32768
  171.     InputText "", STRING006, 11, 60
  172.     If (Len(STRING006) < 2) Goto LABEL011
  173.     PrintLn 
  174.     DispText 498, 32768
  175.     GetUser
  176.     STRING007 = NoChar()
  177.     If (U_FSE == 1) STRING007 = YesChar()
  178.     InputYN "", STRING007, 11
  179.     PrintLn 
  180.     KbdStuff "E " + Chr(13) + "UUCP" + Chr(13) + STRING006 + Chr(13) + STRING007 + Chr(13)
  181.     KbdStuff "@>" + STRING013 + Chr(13) + "To: " + STRING008 + Chr(13) + Chr(13)
  182.     :LABEL011
  183.     Cls
  184.     End
  185.  
  186. ;------------------------------------------------------------------------------
  187. ;
  188. ; Usage report (before postprocessing)
  189. ;
  190. ; ■ Statements used :
  191. ;
  192. ;    1       End
  193. ;    4       Cls
  194. ;    39      Goto 
  195. ;    20      Let 
  196. ;    29      PrintLn 
  197. ;    19      If 
  198. ;    3       DispFile 
  199. ;    1       FOpen 
  200. ;    1       FClose 
  201. ;    4       FGet 
  202. ;    2       GetUser
  203. ;    6       InputStr 
  204. ;    2       InputYN 
  205. ;    5       DispText 
  206. ;    3       InputText 
  207. ;    4       KbdStuff 
  208. ;
  209. ;
  210. ; ■ Functions used :
  211. ;
  212. ;    1       *
  213. ;    49      +
  214. ;    1       -
  215. ;    7       ==
  216. ;    8       <
  217. ;    1       <=
  218. ;    1       >
  219. ;    2       >=
  220. ;    10      !
  221. ;    2       &&
  222. ;    1       ||
  223. ;    9       Len(
  224. ;    1       Mid()
  225. ;    13      Chr()
  226. ;    1       Asc()
  227. ;    2       NoChar()
  228. ;    2       YesChar()
  229. ;    7       PPEPath()
  230. ;    3       Exist()
  231. ;    1       S2I()
  232. ;
  233. ;------------------------------------------------------------------------------
  234. ;
  235. ; Analysis flags : No flag
  236. ;
  237. ;------------------------------------------------------------------------------
  238. ;
  239. ; Postprocessing report
  240. ;
  241. ;    1       For/Next
  242. ;    0       While/EndWhile
  243. ;    9       If/Then or If/Then/Else
  244. ;    0       Select Case
  245. ;
  246. ;------------------------------------------------------------------------------
  247. ;                 AEGiS Corp - Break the routines, code against the machines!
  248. ;------------------------------------------------------------------------------
  249.